﻿Public Class fMinRecargaPasatiempo
    Dim daMinRecargaPasatiempo As lbGlobalcom.dsGlobalTableAdapters.GLO_MINRECARGAPASATIEMPOTableAdapter

    Private Sub fMinRecargaPasatiempo_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Try
            If Me.DsGlobal.GLO_MINRECARGAPASATIEMPO.GetChanges() IsNot Nothing Then
                GLO_MINRECARGAPASATIEMPOBindingSource.EndEdit()
                If MessageBox.Show("Hay cambios pendientes por salvar, desea salvarlos", "Cambios pendientes", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
                    GLO_MINRECARGAPASATIEMPOBindingNavigatorSaveItem.PerformClick()
                End If
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message)
            lbGlobalcom.cError.SalvaError(ex, "Henry")
        End Try
    End Sub

    Private Sub fMinRecargaPasatiempo_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        daMinRecargaPasatiempo = New lbGlobalcom.dsGlobalTableAdapters.GLO_MINRECARGAPASATIEMPOTableAdapter
    End Sub

    Private Sub GLO_MINRECARGAPASATIEMPODataGridView_DataError(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewDataErrorEventArgs) Handles GLO_MINRECARGAPASATIEMPODataGridView.DataError
        MessageBox.Show(e.Exception.Message)
    End Sub

    Private Sub GLO_MINRECARGAPASATIEMPODataGridView_UserDeletedRow(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewRowEventArgs) Handles GLO_MINRECARGAPASATIEMPODataGridView.UserDeletedRow
        Try
            daMinRecargaPasatiempo.Update(DsGlobal.GLO_MINRECARGAPASATIEMPO)
            MessageBox.Show("Registro borrado con exito", "Elimina regsitro", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
            lbGlobalcom.cError.SalvaError(ex, "Henry")
        End Try

    End Sub

    Private Sub GLO_MINRECARGAPASATIEMPODataGridView_UserDeletingRow(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewRowCancelEventArgs) Handles GLO_MINRECARGAPASATIEMPODataGridView.UserDeletingRow
        If MessageBox.Show("Desea borrar el registro", "Elimina registro", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.No Then
            e.Cancel = True
        End If
    End Sub

    Private Sub btnCargarMinRecargaPasatiempo_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCargarMinRecargaPasatiempo.Click
        Try
            If Me.DsGlobal.GLO_MINRECARGAPASATIEMPO.GetChanges() IsNot Nothing Then
                GLO_MINRECARGAPASATIEMPOBindingSource.EndEdit()
                If MessageBox.Show("Hay cambios pendientes por salvar, desea salvarlos", "Cambios pendientes", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
                    GLO_MINRECARGAPASATIEMPOBindingNavigatorSaveItem.PerformClick()
                End If
            End If
            daMinRecargaPasatiempo.Fill(DsGlobal.GLO_MINRECARGAPASATIEMPO)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
            lbGlobalcom.cError.SalvaError(ex, "Henry")
        End Try
    End Sub

    Private Sub GLO_MINRECARGAPASATIEMPOBindingNavigatorSaveItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles GLO_MINRECARGAPASATIEMPOBindingNavigatorSaveItem.Click
        Try
            Validate()
            GLO_MINRECARGAPASATIEMPOBindingSource.EndEdit()
            daMinRecargaPasatiempo.Update(DsGlobal.GLO_MINRECARGAPASATIEMPO)
            MessageBox.Show("Se salvarón registros con exito", "Salva Registros", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
            lbGlobalcom.cError.SalvaError(ex, "Henry")
        End Try
    End Sub

    Private Sub BindingNavigatorDeleteItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BindingNavigatorDeleteItem.Click
        If MessageBox.Show("Desea borrar el registro", "Elimina registro", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
            GLO_MINRECARGAPASATIEMPOBindingSource.Remove(GLO_MINRECARGAPASATIEMPOBindingSource.Current)
            GLO_MINRECARGAPASATIEMPOBindingNavigatorSaveItem.PerformClick()
        End If
    End Sub
End Class